home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1992 / 10 / 02 / igel / listing_1.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-01  |  336 b   |  27 lines
  1. LINE (600,20)-(600,190)
  2. LINE (50,20)-(600,20)
  3. LINE (50,20)-(50,190)
  4. FOR X=.01 TO 200 STEP 25
  5.   A=X
  6.   B=200-X
  7.   C=2
  8.   L=200
  9.   I=X
  10.   N=0
  11.   Z=1
  12.  stufe:
  13.   V=C/(1+(B/A))+1
  14.   I=I+V
  15.   K=(.355*I)+50
  16.   L=L+C
  17.   P=(.355*L)+50
  18.   N=N+Z
  19.   Y=(.25*N)+20
  20.   A=A+V
  21.   B=B+C-V
  22.   PSET (P,Y)
  23.   PSET (K,Y)
  24.   IF K>P THEN GOSUB alfa ELSE GOTO stufe
  25. alfa:
  26. NEXT X
  27.